www.gusucode.com > 6KBBS ASP版 V7.1 > 6KBBS ASP版 V7.1\code\bbs\inc\Page.asp

    <%
Function pagination(pagecount,urlstr)
   Dim wzpage,wzpagecount,pagenum,pagetemp
       If Len(Request.QueryString("page"))<>0 Then
          wzpage = clng(Request.QueryString("page"))
         Else 
          wzpage =1
       End If
       If wzpage <= 0 Then wzpage =1
       pagenum = (wzpage \ 10)*10+1
       If wzpage mod 10 = 0 Then pagenum = (wzpage \ 10)*10-9
       If wzpage > 10 Then
	        pagetemp=pagetemp&"<font face=""webdings"">"
            pagetemp=pagetemp&"<a href=""?"&urlstr&"&page=1"" title=""首页"">9</a>"
			pagetemp=pagetemp&"<a href=""?"&urlstr&"&page="& pagenum-1 &""" title=""前十页"">7</a>"
            pagetemp=pagetemp&"</font> "
	   End If
       For pagenum = pagenum To pagenum + 9
           If pagenum = wzpage Then
                  pagetemp=pagetemp&"<font color=""#ff0000"">"
                  pagetemp=pagetemp&" "& pagenum &" "
                  pagetemp=pagetemp&"</font>"
		      Else
                  pagetemp=pagetemp&" <a href=""?"&urlstr&"&page="& pagenum &""">"
                  pagetemp=pagetemp&""& pagenum &""
                  pagetemp=pagetemp&"</a> "
			End If
         If pagenum >= pagecount Then Exit For
       Next
	    If wzpage < (pagecount - (pagecount \ 10))  Then
	        pagetemp=pagetemp&"<font face=""webdings"">"
            pagetemp=pagetemp&"<a href=""?"&urlstr&"&page="& pagenum &"""  title=""后十页"">8</a>"
			pagetemp=pagetemp&"<a href=""?"&urlstr&"&page="& pagecount &"""  title=""末页"">:</a>"
            pagetemp=pagetemp&"</font>"
	  End If
	  pagination=pagetemp
End Function

%>